/ Ustaw adres wywietlacza alfanumerycznego
/ na 1000h, wcz go i uruchom kod

LXI H,1000h
MVI M,'P'
INX H
MVI M,'r'
INX H
MVI M,'o'
INX H
MVI M,'s'
INX H
MVI M,'z'
INX H
MVI M,'e'
INX H
MVI M,' '
INX H
MVI M,'w'
INX H
MVI M,'p'
INX H
MVI M,'r'
INX H
MVI M,'o'
INX H
MVI M,'w'
INX H
MVI M,'a'
INX H
MVI M,'d'
INX H
MVI M,'z'
INX H
MVI M,'i'
INX H
MVI M,'c'
INX H
MVI M,' '
INX H
MVI M,'d'
INX H
MVI M,'o'
INX H
MVI M,' '
INX H
MVI M,'r'
INX H
MVI M,'e'
INX H
MVI M,'j'
INX H
MVI M,'e'
INX H
MVI M,'s'
INX H
MVI M,'t'
INX H
MVI M,'r'
INX H
MVI M,'o'
INX H
MVI M,'w'
INX H
MVI M,' '
INX H
MVI M,' '
INX H
MVI M,'B'
INX H
MVI M,' '
INX H
MVI M,'i'
INX H
MVI M,' '
INX H
MVI M,'C'
INX H
MVI M,' '
INX H
MVI M,'l'
INX H
MVI M,'i'
INX H
MVI M,'c'
INX H
MVI M,'z'
INX H
MVI M,'b'
INX H
MVI M,'y'
INX H
MVI M,' '
INX H
MVI M,'d'
INX H
MVI M,'o'
INX H
MVI M,' '
INX H
MVI M,'p'
INX H
MVI M,'o'
INX H
MVI M,'m'
INX H
MVI M,'n'
INX H
MVI M,'o'
INX H
MVI M,'z'
INX H
MVI M,'e'
INX H
MVI M,'n'
INX H
MVI M,'i'
INX H
MVI M,'a'
INX H
MVI M,':'
MVI A,69
Czyszczenie:
   INX H
   MVI M,' '
   DCR A
JNZ Czyszczenie
LXI H,1060h

/ Ptla oczekujca na wprowadzenie liczb
/ do rejestrw B i C

Oczekiwanie:
   MOV A,B
   CPI 0
JZ Oczekiwanie
   MOV A,C
   CPI 0
JZ Oczekiwanie
MVI M,'W'
INX H
MVI M,'y'
INX H
MVI M,'n'
INX H
MVI M,'i'
INX H
MVI M,'k'
INX H
MVI M,' '
INX H
MVI M,'w'
INX H
MVI M,' '
INX H
MVI M,'r'
INX H
MVI M,'e'
INX H
MVI M,'j'
INX H
MVI M,'e'
INX H
MVI M,'s'
INX H
MVI M,'t'
INX H
MVI M,'r'
INX H
MVI M,'z'
INX H
MVI M,'e'
INX H
MVI M,' '
INX H
MVI M,'B'
INX H
MVI M,'C'
INX H
MOV D,B
CALL Mnozenie
HLT


/ Podprogram mnoy rejestr C i D
Mnozenie:
   MVI A,0
   MVI B,0
   Petla:
      ADD C
      JNC Brak_przeniesienia
      INR B
   Brak_przeniesienia:
      DCR D
      JNZ PETLA
      MOV C,A
      RET
